ccccccccccce Lk IIIIII11 UUU UUU TTTTTTTTTTTTTTT CLt 
cccccccccccc LLL III1I111 UUU UUU TTTTTTTTTTTTTTT LLet 
cceccccccccce =k HII UUU UUU TITTTTTTITTTITTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] U UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HIIIII11 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC LLLLLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
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MODULE showerror Cieent = *'v04-000 


ADDRESSING_MODE PO EXTERNAL = GENERAL)) = 


---@ 
om 
o 
_ 
2 


ROR RRAERAAAAAAHAAAHHAAAHAAAHHAHHHHEHHKEKAHAeAHKeHAReeReHeReKAeeeReKeeAeee 


!* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
i® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
:* ALL RIGHTS RESERVED. 


Hed are abe: IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

Yuet ye ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie TneLu Ton OFT HE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:@ Copies THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!# QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
te 
= 
& 
® 
® 
wt 
® 
fe 
® 
ie TRANSFERRED. . 
2 
® 
® 
® 
® 
te 
® 
® 
® 
® 


=D) 3) 2) a 4 ts ts a 
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!@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
? oeeoke ste NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
'® SOFTWARE ON EQUIPMENT WHICH IS N 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 


PETITITILILILILILI LL LLL LiL iLiTiLitiiiiiiitililiiiiiiiiiiiiiiiii itl 
i 
i 


SSSSSSSSsSssssssss 
FUN (SO OONOAUE WN $0 OONOUS wT 


Ane ret thre wb ane oh ay epee are! 4 


Be Se Se Be Se Be Se Se Be Se Fe Se Se Se Ge Ge Fe Ge Se Se Ge Ge Gs Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se SH Se Se Se Ge Ge we 


oe a eh at ss a a tt tw 8 0 ts is 9 2 > 9 ts tt 8 OOO 
- 
a 


ise 
! 
FACILITY: SHOW utility 
i ABSTRACT: 
43 This module contains the routines for the SHOW ERROR command. 
$038 i ENVIRONMENT 
4 44 VAX native, user and kernel mode 
rh 0041 AUTHOR: Gerry Smith CREATION DATE: 28-Jul-1982 
és ac$ MODIFIED BY: 
45 045 : V03-002 GAS0149 Gerry Smith 29-Jun-1983 
rt Oey Use IOCSCVT _DEVNAM te get the device name. 
48 8 : v03-001 GASO117 Gerry Smith 12-Apr-1983 
50 Ben Change display to work with long device names. 
1 51 leo 


eee ee ee —E 
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i Include files 


BRARY *SYSSLIBRARY:1 1B"; ! VAX/VMS system definitions 
QUIRE "SRC$:SHOWDEF'; ! SHOW common definitions 


mee 


= =r - 


“ 


i Define the Linkage for the routines to lock and unlock the 1/0 database, 
: scan the databse, and fabricate the device name. 


LINKAGE 

IOLOCK = JSB (REGISTER = 4), 

IOSCAN = JSB (REGISTER = 11, ' Call with DDB, 
REGISTER = 10; : ° 
REGISTER = 11 ' Return with D0DB, 
REGISTER = 105, i ucB 

71 CVTIDEV = JSB (REGISTER = 9. ! Length of output buffer, 

REGISTER = 1, !' Address of output buffer 
REGISTER = 4, ! Format of device name 
REGISTER = 5; ! Address of UCB 
REGISTER = 15; i Length of final name 


Define the flags longword bits. 


SNP A OOOO 
a a a a a a a a ed 


a a a tk a a = ss ss 2 = 2 2s 2 = 2s ss 1 2 Yt 


MACRO 
SHOWSV_BRIEF - 0. Oo. 1. M. ' /BRIEF 
SHOWSV~FULL = hae, Oe i /ALL 
ae 
+3 4 Define macros to describe the fields in the scratch area. 
90 9 MACRO 
91 d.l.devien = 0, 8. . 02, ! Device name length 
9 89 _a_pt = 4, 0, 32, 0%, ! Pointer to device name 
9 90 d_llerrcnt = g. 0, 32, O02, ' Error count 
os 91 d_t_name = 12,0, 0%; ! Device name 
95 3 LITERAL “d_k_lLength = SBYTEOFFSET(d_t_name) + 21; 
39 94 1 EXTERNAL LITERAL 
4 4 32 show$_noerrors; ! No device errors found 


if: Sep 1964 93:85:38 eT Ske isabutnage6$2. 1 Page is, 


1 1 : 
§ 1 } Table of contents 
5 FORWARD ROUTINE 
show$Serrors : NOVALUE, 
get data, 
: print_data : NOVALUE; 


ExT" 
scs$ga_localsb, 
exe$gl_ on 


Tocsel devi ist, 
sch$gl_curpcb; 


EXTERNAL ROUTINE 
cli$present, 


9° vm, 
show vSurite. Line oNPVALUE.. 
ioc$scan_iddb OSCAN, 


ioc$cvt ys ——*, : Oe sDev. 
sch$iolockr : IOLOCK, 
sch$iounlock : 1OLOCK; 


a ad a 8 a a tt tt 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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Nm 


Soon ROUTINE showSerrors : NOVALUE = 
BEGIN 


LOCAL 
status ! General status return 
flags : SBBLOCK $3: ! Flags longwor 
9 st: aah a ' Argument list for SCMKRNL call 
: ress Limits of scratch area 
a vECTORES ! Ad Limits of tch 


' 
! Obtain any qualifiers, if present. 


i 
¢lags{show$v mainte = cli$present (ZASCID Ht He F°); 
flagsCshowSv_full] = cli$present(ZASCID L"); 

r 
: 


Allocate a scratch area in which to put data about the error 
; The beginning and ending addresses of the area will be returned in DATA. 


if NOT (status = LibSget_ pa EREE (940912), ! Request 64 pages 
data)) ' Put address Limits here 
wen SIGNAL. STOP (show$ $,insyirnen, 0, .status); ! Stop if error 
ata! datal0) + ! Compute end of area 


i Call the data-gathering routine in kernel mode, passing the address of the 
address Limits as an argument. Save the status. 


argist(0 
argistlij = = date: 
orelsete 
F NOT ‘RAs S ScMKRNL(ROUTIN = get data, 
ais ARGLST = arg[st)) 


vw 


SOSSSCOSOOSOOCOOOSOOSSOCOSSOOSSCOOCOOOOOCOSOOOCOOOO OOOO OOOO OOOO OOO OOO 


POPIPIPIPIPIPIPIPIPIPINIPININIPUAPINININININININY 


POPQPINIPINININIRINININIPIPYPIPUPIPIPIPOPUPIPONPIPIPUNPofnonofnny 


PAPAS ASO wanes trig set etend nab tet teat al A ne ry ee cere PN a eh ee Nae | 


aa 


GIN 
IF .status NEQU ss$_vasfull 
THEN 
BEGIN 
SIGNAL(.status); 
RETURN; 
END; 


' 
} Format and print the data. 


print_data(data, flags); 
t 


i If the status return from SCMKRNL is not 1, then signal that error at this 
time. Otherwise, simply return. 


if .status NEQ 1 
HEN SI GNAL(. status); 


RETURN; 
END; 


abe 


Se Se Se Se Se Se Se Se Se Ge Ge Ge Se Se Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Se Sse Se Se Se FH Se Ge Se Ge Fe Se Se Se Se Se Se Fe Se Se Se Sse Se Se Se Se Ge Se Ge we 


mk aa ai a ak ak aa i in a a i at at a = os as = 0 2 2 9 2 st SS 2 tS SY 2 ss ts tt St 


p+ 4 ~~“ SSA AAAPA AA AA AMMAN & & my Ne PP 6 Bat eens sry epee wb Nhe 4 


! End of showSerror 
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“Tite SH as tN 
~ IDEN \v04-000\ 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


00 00 00 46 45 49 52 42 P.AAB: .ASCII \BRIEF \<0><0><0> ; 
91 900 P.AAA: .LONG 17694725 ; 
0000 00° ¢ ADDRES AB : 
4C 4¢ 4 10 P.AAD: .ASCII ULL ; 
91 £0004 014 P.AAC: .LONG 17694724 ; 
0000000" 00018 “ADDRESS P.AAD ; 
.EXTRN SHOWS _NOERRORS, SCSS$GA_LOCALSB 
EXTRN EXESGC_MCHKERRS 
TEXTRN EXESGL-MEMERRS, IOCSGL_DEVLIST 
EXTRN SCHS$GL_CURPCB, CLISPRESENT 
EXTRN LIBSGET VM, SHOWSWRITE LINE 
EXTRN IOCS$SCAN_10DB, IOCS$CVT-DEVNAM 
SEXTRN SCHSIOLOCKR, SCHSIOUNLOCK 
EXTRN SYSSCMKRNL 


-PSECT S$CODES,NOWRT,2 


000¢ 00000 .ENTRY SHOWSERRORS, Save R2.R3 : 0221 
53 000000006 00 9 0002 HOVAB CLISPRESENT, R3 : 
E 1C ¢ 000 SUBL2 #28, SP : 
0000' CF SF 0000C PUSHAB P.AAA + 0233 
63 gi FB 90019 CALLS #1, CLISPRESENT : 
04 AE 01 00 0 FO 0001 INSV RO, #0, #1, FLAGS ; 
0000" CF 9F 00019 PUSHAB P.AAC : 0234 
63 g1 FB 001D CALLS #1, CLISPRESENT : 
04 AE 01 01 0 FO 00020 INSV RO. #1, #1, FLAGS ; 
08 AE 9F 00026 PUSHAB DA : 0240 
04 AE 8000 8F 3C 00029 MOVZ2WL #32768, 4(SP) : 
04 AE 9F 0002F PUSHAB 4(SP) : 
000000006 00 FB 000 2 CALLS 2, LIBSGET_VM : 
52 DO 000 VL RO, STATU ; 
11 : E8 0003C LBS STATUS, 1 ; 
DD 0003F PUSHL STATUS + 0242 
—E D4 00041 CLRL = SP) ; 
007812F2 BF DD 0043 PUSHL #7869170 ; 
000000006 0 3 FB 0004 CALLS # L {BSS TOP : 
AE 08 AE OOOO7FFF BF C1 9990 1$ ADDL3 #32767, DATA, DATA+4 + 0243 
10 AE 2 b0 A MOVL #2, A : 0248 
16 AE 08 AE 9E 0005 MOVAB DATA, ARGLST+4 > 0249 
18 AE 4 AE 9E 0006 MOVAB FLAGS, ARGLST+8 : 9259 
10 AE OF 006 PUSHAB ARGLST : 0252 
0000v CF 9F 00068 PUSHAB GET_DATA ; 
000000006 99 F O6F CALLS #2, SYSSCMKRNL : 
D 6 6 MOVL RO, STATUS ; 
9 £ 79 BLBS STATUS, 2$ ; 
00000244 8F DI 007 CMPL STATUS. #580 > 0255 
10 12 0 BNEG g : 
04 AE OF 2$ PUSI“AB FLAGS > 0266 | 
C AE OF 00 PUSHAB DATA : 
0000v CF 02 FB 00088 CALLS #2, PRINT_DATA : 


CS ene 01: 2 5 AX-11 Bliss-32 V4.0-74 Page 6 


14-Sep-1984 12: CLIUTL.SRCJSHOWERROR .B52; 1 (4) 
01 3 D1 000 CMPL STATUS, #1 3 0272 
9 13 0009 BEQL 4$ 3 
2 DD 00095 3S: PUSHL STATUS ; 0273 
000000006 00 01 FB 00097 CALLS #1, LIBSSIGNAL § 
04 OO09E 4$: RET : 0276 


; Routine Size: 159 bytes, Routine Base: S$CODE$S + 0000 


. Sz 
: 
ats 
oo 
te 
uo 
ean 
vv 


LESFANVLSSELEARLS 


=198¢ 92:68:33 UeCiut SAeSshoutRaon -882;1 


oyT iat get_data (data, flags) = 


SI 


UEWr—O0e~ 


Status return 
End-of-address Limit 
Pointer to scratch area 
UCB pointer 


1 
rye us, 
Limit, 
scratch : REF S$BBLOCK, 
uc OCcK, 
ddb : REF SBBLOCK; DDB pointer 
ve dat REF VECTOR Th d i l d 
ata: H e@ passed argument is two longwords 
flags : REF Lotk; ; Flags Longuord . 
Set up the scratch area so that is can be addressed easily. Also, calculate 
' 
4 
4 
3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 


Oo 
oo 


! a Limit toward the end of the scratch area, so that we don't write beyond the 
! area. Finally, set up STATUS as 1, to show that we still have room in the 
' scratch area to store more data. 


ee a a ss 2 ss os 4 4 4 


scratch = .data 0); ! Point to beginning of scratch area 
Limit = .datal1J - 256; ! Set the Limit to be halfway in to 
! the last page of the scratch area. 


! 
' Lock the 1/0 data base. Upon return from the call to SCHSIOLOCKR, the 
! IPL will be 2, so that pagefaults are still allowed. 


' 
' 
SCHSIOLOCKR(.sch$gl_curpcb); ! Lock the 1/0 database 


WWWIWWIWIWIWinononononononononenonononononononenornoronornr 


SRENCS Sa tsa Re See 


i For each DDB, examine each UCB associated with it, and see if the error 
' count is non-zero. If so, or if all devices were requested, then store 
! the pertinent data into the scratch area. If the scratch area is exhausted, 


0 
4 
' 
' 
: then indicate this by setting STATUS = SS$_VASFULL. 
s 
W 


NOARGUISSSLEREANLSS 


= se st 


tatus = IOCSSCAN_IODB(0, 0; ddb, ucb); ! Get to first UCB 
so |S ne dO ! Loop thru all UCB's 


N 
IF NOT .$BBLOCKCucbCucb$l_devchar], dev$v_mbx] ! Ignore mailboxes 
AND NOT eg howtycfut a. e) ! and template devices 


rrn— 


DONO UNS WO OW 


AND (.flags(show$v_ ful 


OR ! If all desired, or 
-ucblucb$w_errcnt 


NEQ 0) ' this one has errors 
! then get information 


BEGIN 
IF_ .scratch GEQA .Limit 
THEN 
BEGIN 
status = ss$_vasfull; 
EXITLOOP 


END; 
ioc$cvt_devnam(20, 
scretch(d_t_nene), 


AAA A.ANNANN NIAAA AAAAW 


WANA POPOPUPONNNONOND 


NOAUEWN OO OONOUES WN —OO® 


' Get device name, max this long 
' put it here, 

! in syengere display format 
.ucb; ' UCB is here 
scratch(d_l_devlen]); ! final Length here 


scratch(d_l_errcnt) = .ucbCucb$w_errcnt); 


SOOSOCOCOCOCOOSOCOSCOCOOCOCOCOOSSOOOOSSOOSSCSCSC COO OOOCOCCOOOCOCOOOOOOOCOOOOOO 


Ronononononofonory 
NA 
pele -) MF wn— 


HAAN ANA 


Wwn—OO0e 
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4 cratch = .scratch + d_k_length; ' Get to next data block 


; 96 5 ; 

3 “8 pxgtes = IOCSSCAN_IODB(.ddb, .ucb; ddb, ucb); 

# ae 

: 26 i Now to clean up. Unlock the 1/0 database, then lower the IPL 

5 re r to zero. 

; 4 rk $CHS1OUN eee curpcb); ' Unlock jie database 
3 ? 4 SET_IPL(O) i Lower IPL 

; us 3 

: § rh If status = 0, then the entire database has been scanned. 

; 5 § if .status EQL 0 

3 : 3} THEN status = 1; 

: 258 ; RETURN .status; ' Return with status 
5 59 5 END; ! End of GET_DATA 


OFFC 00000 em 
HH 000000006 00 43 000 
0 06 AC D 


.WORD Save R2,R3,R4,R5,R6,R7,RB8,R9,R10,R11 
MOVAB SCHSGL wee R? 


0 
g 00 MOVL DATA, RO. 
: 6 069 000 MOVL (RO), SCR 
56 04 Ad 00000100 8F C3 00010 SUBL3 #256 RfRoD nLIMtT 
5 67 00 00019 MOVL SCH MSG. cure(B, 
ere Ee a Re OO cock 
- 000000006 16 900 4 1$ js8 1OCSSCAN 1008 
42 3 £9 ii n) BLBC stars 4$ 
EF 3A OA 4 €0 000 BBS #4, 58(uCB), 1$ 
A 65 AA os EO 00035 BBS #5, 101(ucBS, 1$ 
’ eet hee 0082 cA 3 80 4 a 13 36b¢ och) es. ¢ 
F 13 0004 BEQL 4=sé18 
56 be pi 0943 2$: HPL CRATCH, LIMIT 
53 0244 i x O0eA ROVZUL 7580, STATUS 
5] Oc A2 or 09 1 3$: MOVAB 12(SCRATCH), R1 
5 SA D 0 3 MOVL UCB, R5 
3 i 56 $ B move’ 6 RO 
000000006 90 if a3¢ JSB locécvt DEVNAM 
R p 0 MOVL R1, (SCRATCH)+ 
04 A 0082 cA 7 mOVZyL i (UCB) 4 4 (SCRATCH) 
8g f BRB 
4 6 D0 00072 4$: MOVL § SCHS$GL_CURPCB, R4 
000000006 00 16 0007 JSB SCHSIOONLOCK 


See RT ein Es RES 8 a ae Re ke EE 


ooo 


—-OWSF — GOnNOvVWw 


WNAw 
Wrenn 


oO 
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SHOWERROR 16-Sep-1986 01:26: AX-11 Bliss-32 v6.0-74 p 9 
ive to ak sees ra eH art gg Po ae — 
12 DA 90078 HTPR #0, #18 5 0344 
DS 0007E TSTL STATUS + 0349 

13 90080 BNEG 68S : 
53 i 2 MOVL #1, STATUS ? 9350 
0 3 pO 00085 5S: MOVL STATUS, RO ; 035¢ 
00 RET : 035 


; Routine Size: 137 bytes, Routine Base: SCODES + 009F 


a 


9 
0 


fee age Avs Oktay: 


ROUTINE print_data (data, flags) : NOVALUE = 
BEGIN ° ° 


data : REF 

flags : tr Soc otk: 
CAL 

scratch : REF SBBLOCK; ! Pointer to scratch area 
' 
} Set up the scratch area. 
scratch = .datal0); ! Scratch area begins here. 
' 


i Check to see if there are any errors. If not, go away. Otherwise, 
print a nice Little heading. 


it NOT . ratehtg.tonand€ ful) ! If not a /FULL request 
AND .scratc 0 i and no devices errors 
-exe$gl_mchkerrs zor” ! and no CPU errors 


AND -exeSgl a memerrs EQL 0 ! and no memory errors 


BEGIN 
SIGNAL (show$_noerrors); 
om 


compte Stee ap "Device Error Count’, 0); 


Print CPU or memory errors, if there are any. 
iteasts gachkerce ay 0 


i 

If . 

OR .flags(show$v_ full 

THEN showSwrite_ Tine( ASCID "!21<CPU!> !6UW", ZREF(.exe$gl_mchkerrs)); 
If .exe$gl_memerrs NEQ 0 

OR mitt: Shovby.t ful ttj 

THEN showSwrite_Time(ZASCID *!21<MEMORY!>  !6UW", ZREF(.exe$gl_memerrs)); 
' 

i 


! Loop care, she scratch area, taking the data off in the same wer it was 
! stored. This will continue until a segment is found which conta 
device name length of 0. 


WHILE -scratch(d_l_devlen] NEQ 0 


ins a 


scratchid = scratch(d_t_ name 
showSwrité_ “tine canst i <TAF!> 6 wi, 


SC 
scratch = scratch. ; ve t length; 
END; 


BEGIN 
Seratchtaca l_devlen] = Tei t_ vlen) - 1; 


32 V4.0-74 
HOWERROR .B652;1 


Gig § pzumm: 


80 92 & 


20 20 20 


2 9 


3€ 21 
3 21 59 S52 4F 


20 20 20 SE 21 


1B 


4D 


46 


000000006 00 


0c 


003¢ 
000000006 00 9€ 
9459458444 0 9€ 
00000006 ? C3 
04 Be D 
oc F 83 
6 rf 
12 1 
64 D 
E—E i2 
000000006 , 43 
04 
7E Be 
0000° Oe +4 
Dd 
i ‘ 
0 00 
E pp 
0000' ff +4 


6-$ 


1SBen-1964 01:24:38 


! End of PRINT_DATA 


pe Bliss-32 v4.0- 
CLIUTL.SRCJSHOWERROR 


-PSECT SPLITS,NOWRT ,NOEXE,2 


pic P.AAF -ASCII \Device 
A 
3 P.AAE: .LONG 17694752 
4 “ADDRESS P.AAF 
a4 P.AAH: <ASCII \!21<CPU!>  !6uUW\ 
24 P.AAG: .LONG 17694736 
8 -ADDRESS P.AAH 
0 5C P.AAJ: <ASCII] \!21<MEMORY!>  !6UW\<0> 
3H P.AAL: LONG 17894739 
0078 P.AAL: <ASCI] \!21<!AF!> © !6uUW\ 
0088 P.AAK: .LONG 17694736 
008C “ADDRESS P.AAL 
.PSECT S$CODE$,NOWRT,2 
00000 PRINT_DATA: 
«WORD Save R2,R3,R4,R5 
90002 MOVAB EXESGL_MCHKERRS, R5 
0009 MOVAB EXESGL MEMERRS, R4& 
90019 MOV SHOWSWRITE_LINE, R3 
0001 SUBL2 #4, SP 
OO1A MOVL @DATA, SCRATCH 
Ook BBS #1, aFLAGS, 1$ 
0 TSTB  12¢SCRATCHS 
00 6 BNEQ 1$ 
00 TSTL FXESGL_MCHKERRS 
00 A BNEO 
002C TSTL EXESGL_MEMERRS 
99 BNE $ 
PUSHL #SHOWS_NOERRORS 
CALLS #1, LIBSSIGNAL 
D RET 
F 1$: CLRL = = (SP) 
i PUSHAB P.AAE 
44 CALLS #2, SHOWSWRITE LINE 
47 MOVL XESGL_MCHKERRS, R 
A BNEO 
at BBC #1, @FLAGS, 3$ 
2%: MOVL RO. (SP) 
4 PUSHL SP 
6 PUSHAB P.AAG 
O5A CALLS #2, SHOWSWRITE_LINE 


74 
-852;1 


Error Count\ 


0354, 


wien ae 


3; Routine Size: 


oc 


141 bytes, 


50 

08 ¢ 
E 

63 

046 A2 


Routine Base: 


0 00050 38: 
te 

0000" oF 

f 

i 

04 


0000' 


5 
/ 
7 
ant 
i 
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SCODES + 0128 


Bei 
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AX-11 Bliss-32 V4. A ols 
CLIUTL.SRCJSHOWERROR .B52;1 


a MEMERRS, RO 
ao? | mL nes. 5$ 
Pe 


#2, At MOWSWRITE LINE 
( a 


6 
; CRA 

13K) MUCSCRATCH) 
SCRATC 


» SCRATC 
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-EXTRN LIBSSIGNAL, LIBSSTOP 


PSECT SUMMARY 

Name Bytes Attributes 
144 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, pate 'od bE bat t 
437 WOVEC,NOWRT, RD, EXE,NOSHR, LCL, L, CON,NOPIC,ALIGN(2) 


Library Statistics 


ecocesss Symbols -<o<e--- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$0UA28: CSYSLIBILIB.L32;1 18619 20 0 1000 00:01.8 
3 COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SHOWERROR/OBJ=OBJ$:SHOWERROR MSRC$: SHOWERROR/UPDATE=(ENHS: SHOWERROR) 


437 5ode + 144 data bytes 
; Run Time: :10.5 

; Elapsed Time: ig? 9 

; Lexenes/CPU-Min: 16106 


Used: 95 pages 
: poet My oy fenplots 
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